home *** CD-ROM | disk | FTP | other *** search
/ Webster's Millennium Amer…Sign Language Dictionary / ASL.ISO / mac / SHARED.cst / 00029_Script_POP UP < prev    next >
Text File  |  2001-09-17  |  2KB  |  76 lines
  1. --∂ï
  2.  
  3. ----PETEMACK 06.27.01
  4. on openPop
  5.   --  if the machineType = 256 then openxlib the pathname&"Popup.DLL"
  6.   --  else openxlib the pathname&"Popup.XOb"
  7. end openPop
  8. --
  9. on closePop
  10.   --  global gMyPopUp
  11.   --  if objectp(gMyPopUp) then gMyPopUp(mDispose)  
  12.   --  if the machineType = 256 then closeXlib the pathname&"POPUP.DLL"
  13.   --  else closeXlib the pathname&"Popup.XOb"
  14. end
  15. --
  16. on registerPop
  17.   --  global gMyPopUp
  18.   --  if the machineType = 256 then
  19.   --    gMyPopUp(mRegister,"PPXW200-2502856731")
  20.   --  else 
  21.   --    gMyPopUp(mRegister,"PPXM200-1272894216")
  22.   --  end if
  23.   --  gMyPopUp(mSetAutoMark,FALSE)
  24. end registerPop
  25.  
  26. on putItem
  27.   --  global gMyPopUp
  28.   --  put the mouseh into x
  29.   --  put the mousev into y
  30.   --  put gMyPopUp(mPopUpSpec,x,y) into gMyMenuSpec
  31.   --  return gMyPopUp(mGetItem,gMyMenuSpec)
  32. end 
  33.  
  34. on makeProdCatStr catnames
  35.   set returnStr = "Categories A-F["
  36.   repeat with i = 1 to (the number of lines of catNames)/2
  37.     put line i of catNames&";" after returnStr
  38.   end repeat
  39.   put "];Categories G-Z[" after returnStr
  40.   repeat with i = (the number of lines of catNames)/2+1 to the number of lines of catNames
  41.     put line i of catNames&";" after returnStr
  42.   end repeat
  43.   put "];" after returnStr
  44.   return returnStr
  45. end
  46. --
  47. on makeUserCatStr
  48.   global gCurrentUser,gUserData
  49.   set returnstr = ""
  50.   if not voidP(gCurrentUser) and not (gCurrentUser = "") then
  51.     set catList = getUserCategoryList()
  52.     if catList = "" then return returnStr
  53.     put "[" after returnStr
  54.     repeat with i = 1 to the number of lines of catList 
  55.       put line i of catlist & ";" after returnstr
  56.     end repeat
  57.     delete char (length(returnStr)) of returnStr
  58.     put "]" after returnStr
  59.   end if
  60.   return returnStr
  61.   --return ""
  62. end
  63.  
  64. on makeDownLoadsStr
  65.   global gDownLoads
  66.   if gDownLoads = "none" or gDownLoads = "" or voidp(gDownLoads) then return ""
  67.   tell the stage to set DLTemp = getStringToList(gDownLoads)
  68.   sort(DLTemp)
  69.   set returnStr = "Downloaded Signs["
  70.   repeat with i = 1 to count(DLTemp)
  71.     set returnStr = returnStr&getAt(DLTemp,i)&";"
  72.   end repeat
  73.   delete char length(returnStr) of returnStr
  74.   set returnStr = returnStr&"]"
  75.   return returnStr
  76. end